home *** CD-ROM | disk | FTP | other *** search
/ CD Exchange / CD Exchange - Volume 1.iso / utils / misc / ace / ace-2.0.lha / PRGS.lha / Turtle / torus.b < prev    next >
Text File  |  1994-01-18  |  205b  |  24 lines
  1. '..Torus
  2.  
  3. defint a-z
  4.  
  5. screen 1,640,200,1,2
  6.  
  7. penup
  8. setxy 280,110
  9. pendown
  10.  
  11. for i=1 to 36
  12.  for j=1 to 72
  13.    forward 5
  14.    turnright 5
  15.  next
  16.  forward 3
  17.  turnright 10
  18. next
  19.  
  20. while inkey$=""
  21. wend 
  22.  
  23. screen close 1
  24.